home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Magazine / UsingPDF / GhostScript / source / gs5.10 / copy_one.com < prev    next >
Encoding:
Text File  |  1997-11-13  |  329 b   |  15 lines
  1. $ Verif = F$Verify(0)
  2. $ ! OpenVMS command file to emulate behavior of:
  3. $ !
  4. $ !     Define the command for copying one file to another
  5. $ !
  6. $ COPY="COPY/LOG"
  7. $ FILE = F$SEARCH(P1)
  8. $ IF P2 .EQS. "." THEN P2 = "[]"
  9. $ IF FILE .NES. ""
  10. $  THEN
  11. $   FFILE = F$ELEMENT(0, ";", FILE)
  12. $   COPY 'FFILE' 'P2'
  13. $  ENDIF
  14. $ xxx = F$Verify(Verif)
  15.